home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / BBS / RISCBBS / !RiscBBS / Menus / Filebase / ZipNew < prev   
Text File  |  1992-02-24  |  411b  |  25 lines
  1. {
  2.  report `Files newscan`
  3.  
  4.  defopt L= `Long newscan` 10 ``
  5.    f_list `1 L N`
  6.    if RET=0
  7.      menu Filebase.LocZipNew
  8.    else
  9.      menu Filebase.Main
  10.    endif
  11.  endopt
  12.  
  13.  defopt S= `Short newscan` 10 ``
  14.    f_list `-1 RE S N`
  15.    menu Filebase.Main
  16.  endopt
  17.  
  18.  defopt A= `Abort` 10 ``
  19.    menu Filebase.Main
  20.  endopt
  21.  
  22.  attr 0 6
  23. }
  24. Newscan: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  25.